object CariForm: TCariForm Left = 1 Top = 5 ActiveControl = DBGridCAR AutoScroll = False Caption = 'Cari Hareket Kart�' ClientHeight = 413 ClientWidth = 635 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter OnClose = FormClose OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object PanelGr: TPanel Left = 0 Top = 33 Width = 633 Height = 381 HelpContext = 305 BevelInner = bvLowered BevelWidth = 2 BorderWidth = 1 Color = clTeal Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Label3: TLabel Left = 10 Top = 274 Width = 84 Height = 14 Caption = 'Toplam Alacak' Color = clNavy Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label4: TLabel Left = 217 Top = 274 Width = 75 Height = 15 Caption = 'Toplam Bor� ' Color = clGray Font.Color = clYellow Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label5: TLabel Left = 425 Top = 274 Width = 32 Height = 15 Caption = 'Kalan' Color = clPurple Font.Color = clLime Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object LabelU: TLabel Left = 491 Top = 275 Width = 39 Height = 14 Caption = 'LabelU' Color = clPurple Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label2: TLabel Left = 96 Top = 64 Width = 36 Height = 12 Caption = 'Label2' end object Label6: TLabel Left = 272 Top = 143 Width = 36 Height = 12 Caption = 'Label6' end object DBGridCAR: TDBGrid Left = 5 Top = 5 Width = 623 Height = 268 Align = alTop Color = clSilver DataSource = CariHrkSRC FixedColor = clTeal Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] ParentFont = False TabOrder = 1 TitleFont.Color = clWhite TitleFont.Height = -11 TitleFont.Name = 'Arial' TitleFont.Style = [fsBold] OnDblClick = DBGridCARDblClick OnKeyPress = DBGridCARKeyPress end object BitBtnGERI: TBitBtn Left = 7 Top = 344 Width = 79 Height = 27 Hint = 'Alt-F4' Caption = 'Geri D�n' Font.Color = clMaroon Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 10 OnClick = BitBtnGERIClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333333333333333333333333333333333FF333333333333 3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00 E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0 E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0 E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00 000033333373FF77777733333330003333333333333777333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 end object BtnDUZEL: TBitBtn Left = 91 Top = 312 Width = 79 Height = 27 Hint = 'F6 Tu�u' Caption = 'D�zelt' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = BtnDUZELClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF7733333033000000033333373377777773330000} NumGlyphs = 2 end object BtnICERIK: TBitBtn Left = 173 Top = 312 Width = 79 Height = 27 Caption = '��eri&k' Enabled = False Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = False TabOrder = 4 OnClick = BtnICERIKClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3 333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0 C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0 F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF 00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333 3333333373FF7333333333333000333333333333377733333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 end object BtnSIL: TBitBtn Left = 567 Top = 312 Width = 57 Height = 27 Hint = 'Ctrl-Delete Tu�u' Caption = 'Sil' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 9 OnClick = BtnSILClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550 305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0 B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000 B0557777FF577777F7F500000E055550805577777F7555575755500000555555 05555777775555557F55550005555555055555777555555575550000} NumGlyphs = 2 end object BtnSON: TBitBtn Left = 422 Top = 312 Width = 79 Height = 27 Caption = '&Cari Hrk.' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = False TabOrder = 7 OnClick = BtnSONClick Glyph.Data = { 10010000424D1001000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00550000000005 5B55550202022020BBB55500202020020B5555020202002020555B0020202002 0205BB020202002020055B022020200202055500000000202005555022F22202 02055B55022F22202005BBB55022F22202055B5555022F222005555B555000B0 00B555BBB5B55BBB5BBBB55B5BBB55B555B5BB5555B555555555000000000000 0000000000000000000000000000000000000000} end object DBRadGrTUR: TDBRadioGroup Left = 88 Top = 136 Width = 81 Height = 81 Caption = '�deme Tipi' Color = clAqua DataField = 'TUR' DataSource = CariHrkSRC Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] Items.Strings = ( '&Nakit' '&�ek' '&Senet' '&Di�er') ParentColor = False ParentFont = False TabOrder = 0 Values.Strings = ( 'N' '�' 'S' 'D') Visible = False OnExit = DBRadGrTURExit end object BtnYENI: TBitBtn Left = 7 Top = 312 Width = 79 Height = 27 Hint = 'Insert Tu�u' Caption = 'Yeni Cari' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = BtnYENIClick Glyph.Data = { F8000000424DF800000000000000760000002800000010000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555000050000005555544F00BFBFBF0555544F0BFBF0000055544F0FBFBFBFB F05544F0BFBF0000000544F0F000FBFBF00544F0B0B000000F000000F0F000FB FB0F555500BFBFBFB0F455555500FBFB0F44555555550000F44455555555550F 44445555555555500444555555555555500455555555555555500000} end object BtnFONT: TBitBtn Left = 339 Top = 312 Width = 79 Height = 27 Caption = '&Fontu' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = False TabOrder = 6 OnClick = BtnFONTClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} NumGlyphs = 2 end object BtnYAZ: TBitBtn Left = 256 Top = 312 Width = 79 Height = 27 Hint = 'F5 Tu�u' Caption = 'Yaz�c�' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = BtnYAZClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} NumGlyphs = 2 end object LabelA: TPanel Left = 7 Top = 290 Width = 203 Height = 17 Alignment = taRightJustify Caption = 'LabelA' Color = clNavy Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 14 end object LabelB: TPanel Left = 215 Top = 290 Width = 203 Height = 17 Alignment = taRightJustify Caption = 'LabelB' Color = clNavy Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 15 end object LabelK: TPanel Left = 422 Top = 290 Width = 203 Height = 17 Alignment = taRightJustify Caption = 'LabelK' Color = clNavy Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 16 end object BitBtnARA: TBitBtn Left = 505 Top = 312 Width = 57 Height = 27 Hint = 'F7 Tu�u' Caption = 'Bul' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 8 OnClick = BitBtnARAClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333FF33333333333330003FF3FFFFF3333777003000003333 300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333 330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000 333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000 339977FF777777773377000BFB03333333337773FF733333333F333000333333 3300333777333333337733333333333333003333333333333377333333333333 333333333333333333FF33333333333330003333333333333777333333333333 3000333333333333377733333333333333333333333333333333} NumGlyphs = 2 end object BtnAKAPA: TBitBtn Left = 256 Top = 344 Width = 162 Height = 27 Hint = 'F3 Tu�u' Caption = 'Topluca Hareket Kapatma' Font.Color = clMaroon Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 12 OnClick = BtnAKAPAClick NumGlyphs = 2 end object BtnTEDM: TBitBtn Left = 91 Top = 344 Width = 161 Height = 27 Caption = 'Tediye Makbuzunu G�r' Enabled = False Font.Color = clMaroon Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 11 OnClick = BtnTEDMClick end object BtnALKAPA: TBitBtn Left = 422 Top = 344 Width = 201 Height = 27 Caption = 'Fatura No Se�erek Al�� Kapat' Font.Color = clMaroon Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 13 OnClick = BtnALKAPAClick end end object Panel1: TPanel Left = 0 Top = 0 Width = 635 Height = 33 Align = alTop BevelInner = bvLowered BorderWidth = 2 Color = 8388863 Ctl3D = False Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentCtl3D = False ParentFont = False TabOrder = 1 object Label1: TLabel Left = 6 Top = 9 Width = 91 Height = 14 Caption = 'CAR� HESAP ADI :' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object LabelCK: TLabel Left = 100 Top = 8 Width = 21 Height = 15 Caption = '___' end object BitBtn2: TBitBtn Left = 519 Top = 5 Width = 111 Height = 23 Caption = 'Veresiye G�ncelle' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = BitBtn2Click end end object PanelILAC: TPanel Left = 18 Top = 56 Width = 495 Height = 122 BevelInner = bvLowered BevelWidth = 3 BorderWidth = 1 Color = 8388863 TabOrder = 2 Visible = False OnClick = PanelILACExit OnExit = PanelILACExit OnMouseDown = PanelKAPAMouseDown object LabelICER: TLabel Left = 191 Top = 8 Width = 105 Height = 14 Alignment = taCenter AutoSize = False Caption = 'LabelICER' Color = clBlack FocusControl = DBGridICER Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object DBGridICER: TDBGrid Left = 7 Top = 24 Width = 481 Height = 91 Align = alBottom Color = clGray DataSource = SATIMSRC Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] ParentFont = False ReadOnly = True TabOrder = 0 TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'Arial' TitleFont.Style = [fsBold] end end object PanelARA: TPanel Left = 479 Top = 222 Width = 102 Height = 123 BevelInner = bvLowered BorderWidth = 4 Color = 4489302 Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 5 Visible = False OnMouseDown = PanelKAPAMouseDown object Label10: TLabel Left = 14 Top = 10 Width = 73 Height = 15 Caption = 'Aranan Tarih' Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object BtnARATAM: TButton Left = 17 Top = 57 Width = 64 Height = 23 Caption = '&Tamam' TabOrder = 1 OnClick = BtnARATAMClick end object BtnARAVAZ: TButton Left = 17 Top = 89 Width = 65 Height = 23 Caption = '&Vazge�' TabOrder = 2 OnClick = BtnARAVAZClick end object MaskEdit1: TMaskEdit Left = 11 Top = 27 Width = 73 Height = 22 EditMask = '99/99/9999;1;_' MaxLength = 10 TabOrder = 0 Text = ' . . ' OnExit = MaskEditBASExit end end object PanelYAZ: TPanel Left = 256 Top = 205 Width = 159 Height = 138 BevelInner = bvLowered BorderWidth = 4 Color = 8388863 Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 4 Visible = False OnMouseDown = PanelKAPAMouseDown object Label7: TLabel Left = 40 Top = 6 Width = 68 Height = 14 Caption = 'Tarih Aral���' Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 11 Top = 53 Width = 54 Height = 28 Caption = 'Yaz�c� Sol Marj (cm)' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False WordWrap = True end object BtnTAMY: TButton Left = 8 Top = 107 Width = 65 Height = 23 Caption = '&Tamam' TabOrder = 4 OnClick = BtnTAMYClick end object Button2: TButton Left = 77 Top = 107 Width = 65 Height = 23 Caption = '&Vazge�' TabOrder = 5 OnClick = Button2Click end object MaskEditBAS: TMaskEdit Left = 8 Top = 25 Width = 63 Height = 22 EditMask = '99/99/9999;1;_' MaxLength = 10 TabOrder = 0 Text = ' . . ' OnExit = MaskEditBASExit end object MaskEditSON: TMaskEdit Left = 78 Top = 25 Width = 65 Height = 22 EditMask = '99/99/9999;1;_' MaxLength = 10 TabOrder = 1 Text = ' . . ' OnExit = MaskEditBASExit end object SpinEdit1: TSpinEdit Left = 74 Top = 56 Width = 44 Height = 23 MaxLength = 25 MaxValue = 0 MinValue = 0 TabOrder = 2 Value = 0 end object CheckICERIK: TCheckBox Left = 14 Top = 86 Width = 113 Height = 17 Caption = '��erik Yaz�ls�n' Color = clSilver ParentColor = False TabOrder = 3 end end object PanelTed: TPanel Left = 7 Top = 225 Width = 615 Height = 150 BevelInner = bvLowered BorderWidth = 2 Color = 8388672 TabOrder = 7 Visible = False OnClick = PanelTedClick object Label11: TLabel Left = 8 Top = 6 Width = 90 Height = 14 Caption = 'Tediye Makbuzu' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object DBMemoTED: TDBMemo Left = 4 Top = 20 Width = 558 Height = 123 DataField = 'MAKBUZ' DataSource = DS_TED Font.Color = clBlack Font.Height = -11 Font.Name = 'Courier New' Font.Style = [fsBold] ParentFont = False ScrollBars = ssVertical TabOrder = 0 end object BtnTEDGIZ: TBitBtn Left = 565 Top = 27 Width = 44 Height = 25 Caption = 'Gizle' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = PanelTedClick end object BtnTEDSIL: TBitBtn Left = 565 Top = 72 Width = 44 Height = 25 Caption = 'Ted.Sil' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = BtnTEDSILClick end end object PanelKAPA: TPanel Left = 208 Top = 72 Width = 223 Height = 307 BevelInner = bvLowered BorderWidth = 4 Color = 8404992 Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 6 Visible = False OnMouseDown = PanelKAPAMouseDown object Label12: TLabel Left = 30 Top = 169 Width = 95 Height = 14 Caption = 'Son Durum Tarihi' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold, fsUnderline] ParentFont = False end object LabelTARAL: TLabel Left = 6 Top = 6 Width = 211 Height = 15 Align = alTop Alignment = taCenter Caption = 'Vadesi' Color = clBlue Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label14: TLabel Left = 142 Top = 196 Width = 62 Height = 14 Caption = 'Vade Tarihi' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label13: TLabel Left = 35 Top = 100 Width = 134 Height = 15 Caption = 'Hareketlerini Topla ve' Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False WordWrap = True end object RadioGrKAP: TRadioGroup Left = 7 Top = 50 Width = 207 Height = 48 Caption = 'Aral���na ait A��k (�denmemi�)' Color = clSilver Columns = 3 Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ItemIndex = 0 Items.Strings = ( 'Al�m' 'Alacak' 'Bor�' 'Vrs.ye' 'Krm.Fat') ParentColor = False ParentFont = False TabOrder = 0 OnClick = RadioGrKAPClick end object BtnTamKapa: TButton Left = 30 Top = 275 Width = 65 Height = 23 Caption = '&Tamam' TabOrder = 1 OnClick = BtnTamKapaClick end object BtnTamVaz: TButton Left = 116 Top = 275 Width = 65 Height = 23 Caption = '&Vazge�' TabOrder = 2 OnClick = BtnTamVazClick end object MaskEditKI: TMaskEdit Left = 41 Top = 23 Width = 63 Height = 22 EditMask = '99/99/9999;1;_' MaxLength = 10 TabOrder = 3 Text = ' . . ' OnExit = MaskEditBASExit end object MaskEditKS: TMaskEdit Left = 109 Top = 23 Width = 65 Height = 22 EditMask = '99/99/9999;1;_' MaxLength = 10 TabOrder = 4 Text = ' . . ' OnExit = MaskEditBASExit end object MaskEditST: TMaskEdit Left = 133 Top = 165 Width = 63 Height = 22 EditMask = '99/99/9999;1;_' MaxLength = 10 TabOrder = 5 Text = ' . . ' OnExit = MaskEditBASExit end object RadioGrTam: TRadioGroup Left = 7 Top = 116 Width = 207 Height = 47 Caption = 'Tamam Tu�una Bast�ktan Sonra' Color = clSilver ItemIndex = 0 Items.Strings = ( 'Tutar� Cari Hesaba Otomatik Yaz' 'Kapama, Sadece Tutar� G�ster') ParentColor = False TabOrder = 6 OnClick = RadioGrTamClick end object RadioGrOdA: TRadioGroup Left = 8 Top = 189 Width = 124 Height = 47 Caption = '�deme Tipi' Color = clSilver Columns = 2 ItemIndex = 0 Items.Strings = ( 'Nakit' '�ek' 'Senet' 'Di�er') ParentColor = False TabOrder = 7 end object MaskEditVADE: TMaskEdit Left = 141 Top = 212 Width = 63 Height = 22 EditMask = '99/99/9999;1;_' MaxLength = 10 TabOrder = 8 Text = ' . . ' OnExit = MaskEditBASExit end object RadioGrORT: TRadioGroup Left = 10 Top = 239 Width = 204 Height = 33 Caption = 'Ortalama Vade Hesab�' Color = clSilver Columns = 3 ItemIndex = 0 Items.Strings = ( 'Yok' 'A��rl�kl�' 'Basit') ParentColor = False TabOrder = 9 end end object PanelCARI: TPanel Left = 432 Top = 197 Width = 182 Height = 147 BevelInner = bvLowered BorderWidth = 4 Enabled = False Color = 4194304 Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 Visible = False OnMouseDown = PanelKAPAMouseDown object SpdBSONTAR: TSpeedButton Left = 88 Top = 114 Width = 21 Height = 20 Hint = 'Takvime Bak' Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000000000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333330000003333333333333333330000003338888888888888330000003304 0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300 000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0 FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300 000033F7777777777F4833000000330000000000003333000000333333333333 333333000000333333333333333333000000} ParentShowHint = False ShowHint = True Visible = False OnClick = SpdBSONTARClick end object Label8: TLabel Left = 15 Top = 96 Width = 95 Height = 12 Caption = 'Son Durum Tarihi' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RdGroupCARI: TRadioGroup Left = 11 Top = 13 Width = 97 Height = 79 Caption = 'CAR� ��LEM' Color = clSilver ParentColor = False TabOrder = 0 OnClick = RdGroupCARIClick end object DBEdSONTAR: TDBEdit Left = 14 Top = 112 Width = 69 Height = 22 AutoSelect = False DataField = 'SONTARIH' DataSource = CariHrkSRC MaxLength = 0 TabOrder = 1 Visible = False end object ButtonOk: TButton Left = 116 Top = 17 Width = 54 Height = 27 Caption = '&Tamam' TabOrder = 2 OnClick = ButtonOkClick end object ButtonVgc: TButton Left = 116 Top = 65 Width = 54 Height = 27 Caption = '&Vazge�' TabOrder = 3 OnClick = ButtonVgcClick end end object CariHrkSRC: TDataSource DataSet = CariHrkTab OnDataChange = CariHrkSRCDataChange Left = 47 Top = 109 end object CariHrkTab: TTable BeforeInsert = CariHrkTabBeforeInsert AfterInsert = CariHrkTabAfterInsert BeforeEdit = CariHrkTabBeforeEdit BeforePost = CariHrkTabBeforePost AfterPost = CariHrkTabAfterPost AfterDelete = CariHrkTabAfterPost DatabaseName = 'ECZ' IndexName = 'CKODTAR' TableName = 'HAREKET.DB' Left = 20 Top = 109 object CariHrkTabCARIKOD: TStringField FieldName = 'CARIKOD' Visible = False Size = 11 end object CariHrkTabTARIH: TDateField DisplayLabel = 'Tarih' DisplayWidth = 10 FieldName = 'TARIH' Required = True OnGetText = CariHrkTabSONTARIHGetText OnSetText = CariHrkTabSONTARIHSetText DisplayFormat = 'dd.mm.yyyy' EditMask = '!99/99/9999;1;_' end object CariHrkTabTUR: TStringField DisplayLabel = '�dm. Tipi ' DisplayWidth = 8 FieldName = 'TUR' Required = True OnGetText = CariHrkTabTURGetText Size = 1 end object CariHrkTabALACAK: TCurrencyField DisplayLabel = 'Alacak' DisplayWidth = 14 FieldName = 'ALACAK' end object CariHrkTabVADE: TDateField DisplayLabel = 'Vade' DisplayWidth = 10 FieldName = 'VADE' OnGetText = CariHrkTabSONTARIHGetText OnSetText = CariHrkTabSONTARIHSetText DisplayFormat = 'dd.mm.yyyy' EditMask = '!99/99/9999;1;_' end object CariHrkTabBORC: TCurrencyField DisplayLabel = 'Bor�' DisplayWidth = 14 FieldName = 'BORC' end object CariHrkTabNIHAI: TSmallintField Alignment = taLeftJustify DisplayLabel = 'Cari Hareket' DisplayWidth = 13 FieldName = 'NIHAI' OnGetText = CariHrkTabNIHAIGetText end object CariHrkTabBILGI: TStringField DisplayLabel = 'A��klama' DisplayWidth = 36 FieldName = 'BILGI' Size = 36 end object CariHrkTabSONTARIH: TDateField DisplayLabel = 'Son Durum.Trh.' DisplayWidth = 10 FieldName = 'SONTARIH' OnGetText = CariHrkTabSONTARIHGetText OnSetText = CariHrkTabSONTARIHSetText DisplayFormat = 'dd.mm.yyyy' EditMask = '!99/99/9999;1;_' end object CariHrkTabHAREKNO: TFloatField DisplayLabel = 'Hareket No' FieldName = 'HAREKNO' ReadOnly = True end object CariHrkTabALSAT: TStringField DisplayLabel = 'Oto. S�n�f' DisplayWidth = 14 FieldName = 'ALSAT' ReadOnly = True OnGetText = CariHrkTabALSATGetText Size = 1 end object CariHrkTabALSATNO: TFloatField DisplayLabel = 'Oto.S�n�f No' DisplayWidth = 8 FieldName = 'ALSATNO' ReadOnly = True end end object HrkNoAl: TTable DatabaseName = 'ECZ' TableName = 'HRKNOAL.DB' Left = 544 Top = 206 object HrkNoAlHRKNO: TFloatField FieldName = 'HRKNO' end end object SATIMTAB: TTable DatabaseName = 'ECZ' MasterFields = 'ALSATNO' MasterSource = CariHrkSRC ReadOnly = True TableName = 'SATIS.DB' Left = 504 Top = 176 object SATIMTABSATISNO: TFloatField FieldName = 'SATISNO' Visible = False end object SATIMTABSIRANOURUN: TIntegerField DisplayLabel = 'S.No' DisplayWidth = 4 FieldName = 'SIRANOURUN' end object SATIMTABILACNO: TIntegerField Alignment = taLeftJustify DisplayLabel = '�r�n Ad�' DisplayWidth = 36 FieldName = 'ILACNO' OnGetText = ALIMTABILACNOGetText end object SATIMTABFIYAT: TCurrencyField DisplayLabel = 'Fiyat�' DisplayWidth = 13 FieldName = 'FIYAT' DisplayFormat = '#,#' end object SATIMTABMIKTAR: TIntegerField DisplayLabel = 'Adet' DisplayWidth = 4 FieldName = 'MIKTAR' end object SATIMTABKDV: TFloatField DisplayWidth = 4 FieldName = 'KDV' DisplayFormat = '%0.#;' end object SATIMTABSATARIH: TDateTimeField DisplayLabel = 'Tarih' DisplayWidth = 8 FieldName = 'SATARIH' DisplayFormat = 'dd.mm.yy' end end object ALIMTAB: TTable DatabaseName = 'ECZ' MasterFields = 'ALSATNO' MasterSource = CariHrkSRC ReadOnly = True TableName = 'ALIS3.DB' Left = 512 Top = 208 object ALIMTABALISNO: TFloatField FieldName = 'ALISNO' Visible = False end object ALIMTABSIRANOILAC: TIntegerField Alignment = taLeftJustify DisplayLabel = 'S.No' DisplayWidth = 4 FieldName = 'SIRANOILAC' end object ALIMTABILACNO: TIntegerField Alignment = taLeftJustify DisplayLabel = '�r�n Ad�' DisplayWidth = 36 FieldName = 'ILACNO' OnGetText = ALIMTABILACNOGetText end object ALIMTABFIYAT: TCurrencyField DisplayLabel = 'Fiyat�' DisplayWidth = 13 FieldName = 'FIYAT' DisplayFormat = '#,#' end object ALIMTABMIKTAR: TIntegerField DisplayLabel = 'Adet' DisplayWidth = 4 FieldName = 'MIKTAR' end object ALIMTABALISTARIH: TDateTimeField DisplayLabel = 'Tarih' DisplayWidth = 8 FieldName = 'ALISTARIH' DisplayFormat = 'dd.mm.yy' end object ALIMTABKDV: TFloatField DisplayWidth = 3 FieldName = 'KDV' DisplayFormat = '%0.#;' end end object SATIMSRC: TDataSource DataSet = SATIMTAB Left = 120 Top = 248 end object ALIMSRC: TDataSource DataSet = ALIMTAB Left = 480 Top = 208 end object ILACBAKT: TTable DatabaseName = 'ECZ' ReadOnly = True TableName = 'URUN.DB' Left = 536 Top = 176 object ILACBAKTILACNO: TIntegerField FieldName = 'ILACNO' end object ILACBAKTILACAD: TStringField FieldName = 'ILACAD' Required = True Size = 36 end end object QICERIK: TQuery DatabaseName = 'ECZ' DataSource = CariHrkSRC Params.Data = {0100010007414C5341544E4F0006080000000000000000000100} SQL.Strings = ( 'SELECT' 'RECETE.RKDEFTERNO,' 'RECETE.HASTANO,' 'RECETE.ALTARIH,' 'RECETE.NET' 'FROM' 'RECETE' 'WHERE FATNO=:ALSATNO' 'ORDER BY RECETE.RKDEFTERNO') Left = 146 Top = 252 object QICERIKRKDEFTERNO: TStringField DisplayLabel = 'R.Kay.Def.No' FieldName = 'RKDEFTERNO' Size = 9 end object QICERIKHASTANO: TIntegerField Alignment = taLeftJustify DisplayLabel = 'HASTA ADI SOYADI' DisplayWidth = 35 FieldName = 'HASTANO' OnGetText = QICERIKHASTANOGetText end object QICERIKNET: TCurrencyField DisplayLabel = 'NET TUTAR' DisplayWidth = 18 FieldName = 'NET' end object QICERIKALTARIH: TDateField DisplayLabel = 'Aln.Trh.' FieldName = 'ALTARIH' end end object FATICESRC: TDataSource DataSet = QICERIK Left = 138 Top = 284 end object HASTABAKT: TTable DatabaseName = 'ECZ' TableName = 'HASTA.DB' Left = 90 Top = 252 object HASTABAKTHASTANO: TIntegerField FieldName = 'HASTANO' end object HASTABAKTBORC: TCurrencyField FieldName = 'BORC' end object HASTABAKTALACAK: TCurrencyField FieldName = 'ALACAK' end object HASTABAKTHASTADI: TStringField FieldName = 'HASTADI' Size = 18 end object HASTABAKTHASTASOYAD: TStringField FieldName = 'HASTASOYAD' Size = 18 end end object krmBak: TTable DatabaseName = 'ECZ' TableName = 'KRMLAR.DB' Left = 16 Top = 144 object krmBakKOD: TStringField FieldName = 'KOD' Required = True Size = 11 end object krmBakAD: TStringField FieldName = 'AD' Required = True Size = 36 end object krmBakBORC: TCurrencyField FieldName = 'BORC' end object krmBakALACAK: TCurrencyField FieldName = 'ALACAK' end end object PrintDialog1: TPrintDialog Left = 464 Top = 240 end object FontDialog1: TFontDialog Font.Color = clBlack Font.Height = -11 Font.Name = 'Courier New Tur' Font.Style = [] Device = fdBoth MinFontSize = 0 MaxFontSize = 0 Options = [fdEffects, fdFixedPitchOnly] Left = 560 Top = 280 end object QueryTOP: TQuery AfterOpen = QueryTOPAfterOpen DatabaseName = 'ECZ' Params.Data = {0100010008636172696B6F647500010100000000} SQL.Strings = ( 'SELECT ' 'SUM(HAREKET.BORC),' 'SUM(HAREKET.ALACAK)' 'FROM HAREKET' 'WHERE CARIKOD=:carikodu') Left = 16 Top = 80 object QueryTOPSUMofBORC: TCurrencyField FieldName = 'SUM of BORC' end object QueryTOPSUMofALACAK: TCurrencyField FieldName = 'SUM of ALACAK' end end object FontTab: TTable DatabaseName = 'ECZ' TableName = 'FONT.DB' Left = 528 Top = 280 object FontTabBIRIM: TStringField FieldName = 'BIRIM' Size = 9 end object FontTabFONTADI: TStringField FieldName = 'FONTADI' Size = 35 end object FontTabFONTSIZE: TSmallintField FieldName = 'FONTSIZE' end object FontTabCOLOR: TIntegerField FieldName = 'COLOR' end object FontTabSTYLE: TStringField FieldName = 'STYLE' Size = 1 end object FontTabMARJIN: TSmallintField FieldName = 'MARJIN' end end object QKapat: TQuery DatabaseName = 'ECZ' Params.Data = { 0100040008536F6E447572756D000904005A950A000000036B726D0001020030 00000006426173547268000904005A950A00000006536F6E547268000904005A 950A000000} SQL.Strings = ( 'UPDATE HAREKET' 'SET NIHAI=1,SONTARIH=:SonDurum' 'WHERE ' '(CARIKOD=:krm' 'AND ALSAT='#39'A'#39' ' 'AND TUR='#39'A'#39 'AND VADE>=:BasTrh' 'AND VADE<=:SonTrh)' 'AND (NIHAI IS NULL OR NIHAI=0)') Left = 330 Top = 316 end object QAlimTop: TQuery DatabaseName = 'ECZ' Params.Data = { 01000300036B726D000102003000000006426173547268000904005A950A0000 0006536F6E547268000904005A950A000000} SQL.Strings = ( 'SELECT' 'SUM(HAREKET.ALACAK),' 'SUM(HAREKET.BORC),' 'AVG(VADE) AS VADEORT,' 'SUM((VADE-TARIH)* ALACAK) AS AGIRALA,' 'SUM((VADE-TARIH)* BORC) AS AGIRBORC' 'FROM HAREKET' 'WHERE ' '(CARIKOD=:krm' 'AND ALSAT='#39'A'#39' ' 'AND TUR='#39'A'#39 'AND VADE>=:BasTrh' 'AND VADE<=:SonTrh)' 'AND (NIHAI IS NULL OR NIHAI=0)') Left = 344 Top = 81 object QAlimTopSUMOFALACAK: TCurrencyField FieldName = 'SUM OF ALACAK' end object QAlimTopSUMOFBORC: TCurrencyField FieldName = 'SUM OF BORC' end object QAlimTopAGIRALA: TCurrencyField FieldName = 'AGIRALA' end object QAlimTopAGIRBORC: TCurrencyField FieldName = 'AGIRBORC' end object QAlimTopVADEORT: TDateField FieldName = 'VADEORT' end end object TediyeTab: TTable DatabaseName = 'ECZ' TableName = 'tediye.db' Left = 224 Top = 312 object TediyeTabHAREKETNO: TFloatField FieldName = 'HAREKETNO' end object TediyeTabMAKBUZ: TMemoField FieldName = 'MAKBUZ' BlobType = ftMemo Size = 5 end end object DS_TED: TDataSource DataSet = TediyeTab Left = 280 Top = 328 end object prosesTab: TTable DatabaseName = 'ECZ' TableName = 'PROSES.DB' Left = 486 Top = 2 object prosesTabTARIH: TDateTimeField FieldName = 'TARIH' end object prosesTabACIKLA: TStringField FieldName = 'ACIKLA' Size = 36 end object prosesTabISLETNO: TFloatField FieldName = 'ISLETNO' end object prosesTabTUTAR: TCurrencyField FieldName = 'TUTAR' end object prosesTabISLETIPI: TStringField FieldName = 'ISLETIPI' Size = 15 end end end